;;;Diesel test function (see customization manual)
;;;
(defun C:DIESEL ( / dsl)
  (while (/= dsl "M=")
    (setq dsl (strcat "M=" (getstring T "\nDIESEL: ")))
    (princ (menucmd dsl))
  )
  (princ)
)
